home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / tex / files / !tex / TeXsource / web2ctex / ctex / c / tex6 < prev    next >
Encoding:
Text File  |  1988-05-19  |  50.9 KB  |  2,035 lines
  1. #define EXTERN extern
  2. #include "texd.h"
  3.  
  4. zpostlinebreak ( finalwidowpenalty ) 
  5. integer finalwidowpenalty ; 
  6. {/* 30 31 */ postlinebreak_regmem 
  7.   halfword q, r, s  ; 
  8.   boolean discbreak  ; 
  9.   scaled curwidth  ; 
  10.   scaled curindent  ; 
  11.   quarterword t  ; 
  12.   integer pen  ; 
  13.   halfword curline  ; 
  14.   q = mem [ bestbet + 1 ] .hh .v.RH ; 
  15.   curp = 0 ; 
  16.   do {
  17.       r = q ; 
  18.     q = mem [ q + 1 ] .hh .v.LH ; 
  19.     mem [ r + 1 ] .hh .v.LH = curp ; 
  20.     curp = r ; 
  21.   } while ( ! ( q == 0 ) ) ; 
  22.   curline = curlist .pgfield + 1 ; 
  23.   do {
  24.       q = mem [ curp + 1 ] .hh .v.RH ; 
  25.     discbreak = false ; 
  26.     if ( q != 0 ) 
  27.     if ( mem [ q ] .hh.b0 == 10 ) 
  28.     {
  29.       deleteglueref ( mem [ q + 1 ] .hh .v.LH ) ; 
  30.       mem [ q + 1 ] .hh .v.LH = eqtb [ 3534 ] .hh .v.RH ; 
  31.       mem [ q ] .hh.b1 = 9 ; 
  32.       incr ( mem [ eqtb [ 3534 ] .hh .v.RH ] .hh .v.RH ) ; 
  33.       goto lab30 ; 
  34.     } 
  35.     else {
  36.     
  37.       if ( mem [ q ] .hh.b0 == 7 ) 
  38.       {
  39.     t = mem [ q ] .hh.b1 ; 
  40.     if ( t == 0 ) 
  41.     r = mem [ q ] .hh .v.RH ; 
  42.     else {
  43.         
  44.       r = q ; 
  45.       while ( t > 1 ) {
  46.           
  47.         r = mem [ r ] .hh .v.RH ; 
  48.         decr ( t ) ; 
  49.       } 
  50.       s = mem [ r ] .hh .v.RH ; 
  51.       if ( ! ( s >= himemmin ) ) 
  52.       if ( mem [ curp + 1 ] .hh .v.LH != 0 ) 
  53.       if ( mem [ mem [ curp + 1 ] .hh .v.LH + 1 ] .hh .v.RH == s ) 
  54.       s = r ; 
  55.       r = mem [ s ] .hh .v.RH ; 
  56.       mem [ s ] .hh .v.RH = 0 ; 
  57.       flushnodelist ( mem [ q ] .hh .v.RH ) ; 
  58.       mem [ q ] .hh.b1 = 0 ; 
  59.     } 
  60.     if ( mem [ q + 1 ] .hh .v.RH != 0 ) 
  61.     {
  62.       s = mem [ q + 1 ] .hh .v.RH ; 
  63.       while ( mem [ s ] .hh .v.RH != 0 ) s = mem [ s ] .hh .v.RH ; 
  64.       mem [ s ] .hh .v.RH = r ; 
  65.       r = mem [ q + 1 ] .hh .v.RH ; 
  66.       mem [ q + 1 ] .hh .v.RH = 0 ; 
  67.     } 
  68.     if ( mem [ q + 1 ] .hh .v.LH != 0 ) 
  69.     {
  70.       s = mem [ q + 1 ] .hh .v.LH ; 
  71.       mem [ q ] .hh .v.RH = s ; 
  72.       while ( mem [ s ] .hh .v.RH != 0 ) s = mem [ s ] .hh .v.RH ; 
  73.       mem [ q + 1 ] .hh .v.LH = 0 ; 
  74.       q = s ; 
  75.     } 
  76.     mem [ q ] .hh .v.RH = r ; 
  77.     discbreak = true ; 
  78.       } 
  79.       else if ( ( mem [ q ] .hh.b0 == 9 ) || ( mem [ q ] .hh.b0 == 11 ) ) 
  80.       mem [ q + 1 ] .cint = 0 ; 
  81.     } 
  82.     else {
  83.     
  84.       q = memtop - 3 ; 
  85.       while ( mem [ q ] .hh .v.RH != 0 ) q = mem [ q ] .hh .v.RH ; 
  86.     } 
  87.     r = newparamglue ( 8 ) ; 
  88.     mem [ r ] .hh .v.RH = mem [ q ] .hh .v.RH ; 
  89.     mem [ q ] .hh .v.RH = r ; 
  90.     q = r ; 
  91.     lab30: ; 
  92.     r = mem [ q ] .hh .v.RH ; 
  93.     mem [ q ] .hh .v.RH = 0 ; 
  94.     q = mem [ memtop - 3 ] .hh .v.RH ; 
  95.     mem [ memtop - 3 ] .hh .v.RH = r ; 
  96.     if ( eqtb [ 3533 ] .hh .v.RH != 0 ) 
  97.     {
  98.       r = newparamglue ( 7 ) ; 
  99.       mem [ r ] .hh .v.RH = q ; 
  100.       q = r ; 
  101.     } 
  102.     if ( curline > lastspecialline ) 
  103.     {
  104.       curwidth = secondwidth ; 
  105.       curindent = secondindent ; 
  106.     } 
  107.     else if ( eqtb [ 4056 ] .hh .v.RH == 0 ) 
  108.     {
  109.       curwidth = firstwidth ; 
  110.       curindent = firstindent ; 
  111.     } 
  112.     else {
  113.     
  114.       curwidth = mem [ eqtb [ 4056 ] .hh .v.RH + 2 * curline ] .cint ; 
  115.       curindent = mem [ eqtb [ 4056 ] .hh .v.RH + 2 * curline - 1 ] .cint ; 
  116.     } 
  117.     adjusttail = memtop - 5 ; 
  118.     justbox = hpack ( q , curwidth , 0 ) ; 
  119.     mem [ justbox + 4 ] .cint = curindent ; 
  120.     appendtovlist ( justbox ) ; 
  121.     if ( memtop - 5 != adjusttail ) 
  122.     {
  123.       mem [ curlist .tailfield ] .hh .v.RH = mem [ memtop - 5 ] .hh .v.RH ; 
  124.       curlist .tailfield = adjusttail ; 
  125.     } 
  126.     adjusttail = 0 ; 
  127.     if ( curline + 1 != bestline ) 
  128.     {
  129.       pen = eqtb [ 5280 ] .cint ; 
  130.       if ( curline == curlist .pgfield + 1 ) 
  131.       pen = pen + eqtb [ 5272 ] .cint ; 
  132.       if ( curline + 2 == bestline ) 
  133.       pen = pen + finalwidowpenalty ; 
  134.       if ( discbreak ) 
  135.       pen = pen + eqtb [ 5275 ] .cint ; 
  136.       if ( pen != 0 ) 
  137.       {
  138.     r = newpenalty ( pen ) ; 
  139.     mem [ curlist .tailfield ] .hh .v.RH = r ; 
  140.     curlist .tailfield = r ; 
  141.       } 
  142.     } 
  143.     incr ( curline ) ; 
  144.     curp = mem [ curp + 1 ] .hh .v.LH ; 
  145.     if ( curp != 0 ) 
  146.     {
  147.       r = memtop - 3 ; 
  148.       while ( true ) {
  149.       
  150.     q = mem [ r ] .hh .v.RH ; 
  151.     if ( q == mem [ curp + 1 ] .hh .v.RH ) 
  152.     goto lab31 ; 
  153.     if ( ( q >= himemmin ) ) 
  154.     goto lab31 ; 
  155.     if ( ( mem [ q ] .hh.b0 < 9 ) ) 
  156.     goto lab31 ; 
  157.     if ( mem [ q ] .hh.b1 == 2 ) 
  158.     if ( mem [ q ] .hh.b0 == 11 ) 
  159.     goto lab31 ; 
  160.     r = q ; 
  161.       } 
  162.       lab31: if ( r != memtop - 3 ) 
  163.       {
  164.     mem [ r ] .hh .v.RH = 0 ; 
  165.     flushnodelist ( mem [ memtop - 3 ] .hh .v.RH ) ; 
  166.     mem [ memtop - 3 ] .hh .v.RH = q ; 
  167.       } 
  168.     } 
  169.   } while ( ! ( curp == 0 ) ) ; 
  170.   if ( ( curline != bestline ) || ( mem [ memtop - 3 ] .hh .v.RH != 0 ) ) 
  171.   confusion ( 791 ) ; 
  172.   curlist .pgfield = bestline - 1 ; 
  173. } 
  174. smallnumber zreconstitute ( j , n ) 
  175. smallnumber j , n ; 
  176. {/* 22 30 */ register smallnumber Result; reconstitute_regmem 
  177.   halfword p  ; 
  178.   halfword s  ; 
  179.   fourquarters q  ; 
  180.   quarterword c  ; 
  181.   quarterword d  ; 
  182.   scaled w  ; 
  183.   integer r  ; 
  184.   hyphenpassed = 0 ; 
  185.   s = memtop - 4 ; 
  186.   w = 0 ; 
  187.   d = hu [ j ] ; 
  188.   c = d ; 
  189.   while ( true ) {
  190.       
  191.     lab22: p = getavail () ; 
  192.     mem [ p ] .hh.b0 = hf ; 
  193.     mem [ p ] .hh.b1 = c ; 
  194.     mem [ s ] .hh .v.RH = p ; 
  195.     if ( j == n ) 
  196.     goto lab30 ; 
  197.     q = fontinfo [ charbase [ hf ] + d ] .qqqq ; 
  198.     if ( ( ( q .b2 ) % 4 ) != 1 ) 
  199.     goto lab30 ; 
  200.     r = ligkernbase [ hf ] + q .b3 ; 
  201.     c = hu [ j + 1 ] ; 
  202.     while ( true ) {
  203.     
  204.       q = fontinfo [ r ] .qqqq ; 
  205.       if ( q .b1 == c ) 
  206.       {
  207.     if ( odd ( hyf [ j ] ) && ( hyphenpassed == 0 ) ) 
  208.     hyphenpassed = j ; 
  209.     if ( q .b2 < 128 ) 
  210.     {
  211.       d = q .b3 ; 
  212.       incr ( j ) ; 
  213.       s = p ; 
  214.       goto lab22 ; 
  215.     } 
  216.     else {
  217.         
  218.       w = fontinfo [ kernbase [ hf ] + q .b3 ] .cint ; 
  219.       goto lab30 ; 
  220.     } 
  221.       } 
  222.       else if ( q .b0 < 128 ) 
  223.       incr ( r ) ; 
  224.       else goto lab30 ; 
  225.     } 
  226.   } 
  227.   lab30: ; 
  228.   if ( s != memtop - 4 ) 
  229.   {
  230.     p = newligature ( hf , d , mem [ memtop - 4 ] .hh .v.RH ) ; 
  231.     mem [ memtop - 4 ] .hh .v.RH = p ; 
  232.   } 
  233.   if ( w != 0 ) 
  234.   mem [ mem [ memtop - 4 ] .hh .v.RH ] .hh .v.RH = newkern ( w ) ; 
  235.   Result = j ; 
  236.   return(Result) ; 
  237. } 
  238. hyphenate () {
  239.     /* 30 40 45 41 10 */ hyphenate_regmem 
  240.   schar i, j, l  ; 
  241.   halfword q, r, s  ; 
  242.   halfword majortail, minortail  ; 
  243.   ASCIIcode c  ; 
  244.   halfword hyfnode  ; 
  245.   triepointer z  ; 
  246.   quarterword v  ; 
  247.   hyphpointer h  ; 
  248.   strnumber k  ; 
  249.   poolpointer u  ; 
  250.   {register integer for_end; j = 0 ; for_end = hn ; if ( j <= for_end) do 
  251.     hyf [ j ] = 0 ; 
  252.   while ( j++ < for_end ) ; } 
  253.   h = hc [ 1 ] ; 
  254.   {register integer for_end; j = 2 ; for_end = hn ; if ( j <= for_end) do 
  255.     h = ( h + h + hc [ j ] ) % 307 ; 
  256.   while ( j++ < for_end ) ; } 
  257.   while ( true ) {
  258.       
  259.     k = hyphword [ h ] ; 
  260.     if ( k == 0 ) 
  261.     goto lab45 ; 
  262.     if ( ( strstart [ k + 1 ] - strstart [ k ] ) < hn ) 
  263.     goto lab45 ; 
  264.     if ( ( strstart [ k + 1 ] - strstart [ k ] ) == hn ) 
  265.     {
  266.       j = 1 ; 
  267.       u = strstart [ k ] ; 
  268.       do {
  269.       if ( strpool [ u ] < hc [ j ] ) 
  270.     goto lab45 ; 
  271.     if ( strpool [ u ] > hc [ j ] ) 
  272.     goto lab30 ; 
  273.     incr ( j ) ; 
  274.     incr ( u ) ; 
  275.       } while ( ! ( j > hn ) ) ; 
  276.       s = hyphlist [ h ] ; 
  277.       while ( s != 0 ) {
  278.       
  279.     hyf [ mem [ s ] .hh .v.LH ] = 1 ; 
  280.     s = mem [ s ] .hh .v.RH ; 
  281.       } 
  282.       goto lab40 ; 
  283.     } 
  284.     lab30: ; 
  285.     if ( h > 0 ) 
  286.     decr ( h ) ; 
  287.     else h = 307 ; 
  288.   } 
  289.   lab45: ; 
  290.   hc [ 0 ] = 127 ; 
  291.   hc [ hn + 1 ] = 127 ; 
  292.   hc [ hn + 2 ] = 256 ; 
  293.   {register integer for_end; j = 0 ; for_end = hn - 2 ; if ( j <= for_end) do 
  294.     {
  295.       z = hc [ j ] ; 
  296.       l = j ; 
  297.       while ( hc [ l ] == trie [ z ] .b1 ) {
  298.       
  299.     if ( trie [ z ] .b0 != 0 ) 
  300.     {
  301.       v = trie [ z ] .b0 ; 
  302.       do {
  303.           i = l - hyfdistance [ v ] ; 
  304.         if ( hyfnum [ v ] > hyf [ i ] ) 
  305.         hyf [ i ] = hyfnum [ v ] ; 
  306.         v = hyfnext [ v ] ; 
  307.       } while ( ! ( v == 0 ) ) ; 
  308.     } 
  309.     incr ( l ) ; 
  310.     z = trie [ z ] .v.RH + hc [ l ] ; 
  311.       } 
  312.     } 
  313.   while ( j++ < for_end ) ; } 
  314.   lab40: hyf [ 1 ] = 0 ; 
  315.   hyf [ hn - 2 ] = 0 ; 
  316.   hyf [ hn - 1 ] = 0 ; 
  317.   hyf [ hn ] = 0 ; 
  318.   {register integer for_end; j = 2 ; for_end = hn - 3 ; if ( j <= for_end) do 
  319.     if ( odd ( hyf [ j ] ) ) 
  320.     goto lab41 ; 
  321.   while ( j++ < for_end ) ; } 
  322.   return ; 
  323.   lab41: ; 
  324.   q = mem [ hb ] .hh .v.RH ; 
  325.   mem [ hb ] .hh .v.RH = 0 ; 
  326.   s = curp ; 
  327.   while ( mem [ s ] .hh .v.RH != ha ) s = mem [ s ] .hh .v.RH ; 
  328.   mem [ s ] .hh .v.RH = 0 ; 
  329.   flushnodelist ( ha ) ; 
  330.   j = 0 ; 
  331.   do {
  332.       l = j ; 
  333.     j = reconstitute ( j + 1 , hn ) ; 
  334.     if ( hyphenpassed != 0 ) 
  335.     {
  336.       r = getnode ( 2 ) ; 
  337.       mem [ s ] .hh .v.RH = r ; 
  338.       mem [ r ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  339.       mem [ r ] .hh.b0 = 7 ; 
  340.       majortail = mem [ memtop - 4 ] .hh .v.RH ; 
  341.       if ( mem [ majortail ] .hh .v.RH != 0 ) 
  342.       majortail = mem [ majortail ] .hh .v.RH ; 
  343.       i = hyphenpassed ; 
  344.       minortail = 0 ; 
  345.       hyfnode = newcharacter ( hf , hyfchar ) ; 
  346.       if ( hyfnode != 0 ) 
  347.       {
  348.     incr ( i ) ; 
  349.     c = hu [ i ] ; 
  350.     hu [ i ] = hyfchar ; 
  351.       } 
  352.       do {
  353.       l = reconstitute ( l + 1 , i ) ; 
  354.     if ( minortail == 0 ) 
  355.     mem [ r + 1 ] .hh .v.LH = mem [ memtop - 4 ] .hh .v.RH ; 
  356.     else mem [ minortail ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  357.     minortail = mem [ memtop - 4 ] .hh .v.RH ; 
  358.     if ( mem [ minortail ] .hh .v.RH != 0 ) 
  359.     minortail = mem [ minortail ] .hh .v.RH ; 
  360.       } while ( ! ( l == i ) ) ; 
  361.       if ( hyfnode != 0 ) 
  362.       {
  363.     hu [ i ] = c ; 
  364.     {
  365.       mem [ hyfnode ] .hh .v.RH = avail ; 
  366.       avail = hyfnode ; 
  367.     ;
  368. #ifdef STAT
  369.       decr ( dynused ) ; 
  370. #endif /* STAT */
  371.     } 
  372.     decr ( i ) ; 
  373.     l = i ; 
  374.       } 
  375.       hyf [ i ] = 0 ; 
  376.       minortail = 0 ; 
  377.       mem [ r + 1 ] .hh .v.RH = 0 ; 
  378.       while ( l < j ) {
  379.       
  380.     do {
  381.         l = reconstitute ( l + 1 , hn ) ; 
  382.       if ( minortail == 0 ) 
  383.       mem [ r + 1 ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  384.       else mem [ minortail ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  385.       minortail = mem [ memtop - 4 ] .hh .v.RH ; 
  386.       if ( mem [ minortail ] .hh .v.RH != 0 ) 
  387.       {
  388.         hyf [ l ] = 0 ; 
  389.         minortail = mem [ minortail ] .hh .v.RH ; 
  390.       } 
  391.     } while ( ! ( l >= j ) ) ; 
  392.     while ( l > j ) {
  393.         
  394.       j = reconstitute ( j + 1 , hn ) ; 
  395.       mem [ majortail ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  396.       majortail = mem [ memtop - 4 ] .hh .v.RH ; 
  397.       if ( mem [ majortail ] .hh .v.RH != 0 ) 
  398.       {
  399.         hyf [ j ] = 0 ; 
  400.         majortail = mem [ majortail ] .hh .v.RH ; 
  401.       } 
  402.     } 
  403.       } 
  404.       i = 0 ; 
  405.       s = r ; 
  406.       while ( mem [ s ] .hh .v.RH != 0 ) {
  407.       
  408.     incr ( i ) ; 
  409.     s = mem [ s ] .hh .v.RH ; 
  410.       } 
  411.       mem [ r ] .hh.b1 = i ; 
  412.     } 
  413.     else {
  414.     
  415.       mem [ s ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  416.       s = mem [ s ] .hh .v.RH ; 
  417.       if ( mem [ s ] .hh .v.RH != 0 ) 
  418.       s = mem [ s ] .hh .v.RH ; 
  419.     } 
  420.     if ( odd ( hyf [ j ] ) ) 
  421.     {
  422.       r = newdisc () ; 
  423.       mem [ r + 1 ] .hh .v.LH = newcharacter ( hf , hyfchar ) ; 
  424.       mem [ s ] .hh .v.RH = r ; 
  425.       s = r ; 
  426.     } 
  427.   } while ( ! ( j == hn ) ) ; 
  428.   mem [ s ] .hh .v.RH = q ; 
  429. } 
  430. zlinebreak ( finalwidowpenalty ) 
  431. integer finalwidowpenalty ; 
  432. {/* 30 31 32 33 34 */ linebreak_regmem 
  433.   boolean autobreaking  ; 
  434.   halfword prevp  ; 
  435.   halfword q, r, s  ; 
  436.   internalfontnumber f  ; 
  437.   smallnumber j  ; 
  438.   unsigned char c  ; 
  439.   packbeginline = curlist .mlfield ; 
  440.   mem [ memtop - 3 ] .hh .v.RH = mem [ curlist .headfield ] .hh .v.RH ; 
  441.   if ( ( curlist .tailfield >= himemmin ) ) 
  442.   {
  443.     mem [ curlist .tailfield ] .hh .v.RH = newpenalty ( 10000 ) ; 
  444.     curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  445.   } 
  446.   else if ( mem [ curlist .tailfield ] .hh.b0 != 10 ) 
  447.   {
  448.     mem [ curlist .tailfield ] .hh .v.RH = newpenalty ( 10000 ) ; 
  449.     curlist .tailfield = mem [ curlist .tailfield ] .hh .v.RH ; 
  450.   } 
  451.   else {
  452.       
  453.     mem [ curlist .tailfield ] .hh.b0 = 12 ; 
  454.     deleteglueref ( mem [ curlist .tailfield + 1 ] .hh .v.LH ) ; 
  455.     flushnodelist ( mem [ curlist .tailfield + 1 ] .hh .v.RH ) ; 
  456.     mem [ curlist .tailfield + 1 ] .cint = 10000 ; 
  457.   } 
  458.   mem [ curlist .tailfield ] .hh .v.RH = newparamglue ( 14 ) ; 
  459.   popnest () ; 
  460.   noshrinkerroryet = true ; 
  461.   if ( ( mem [ eqtb [ 3533 ] .hh .v.RH ] .hh.b1 != 0 ) && ( mem [ eqtb [ 3533 
  462.   ] .hh .v.RH + 3 ] .cint != 0 ) ) 
  463.   {
  464.     eqtb [ 3533 ] .hh .v.RH = finiteshrink ( eqtb [ 3533 ] .hh .v.RH ) ; 
  465.   } 
  466.   if ( ( mem [ eqtb [ 3534 ] .hh .v.RH ] .hh.b1 != 0 ) && ( mem [ eqtb [ 3534 
  467.   ] .hh .v.RH + 3 ] .cint != 0 ) ) 
  468.   {
  469.     eqtb [ 3534 ] .hh .v.RH = finiteshrink ( eqtb [ 3534 ] .hh .v.RH ) ; 
  470.   } 
  471.   q = eqtb [ 3533 ] .hh .v.RH ; 
  472.   r = eqtb [ 3534 ] .hh .v.RH ; 
  473.   background [ 1 ] = mem [ q + 1 ] .cint + mem [ r + 1 ] .cint ; 
  474.   background [ 2 ] = 0 ; 
  475.   background [ 3 ] = 0 ; 
  476.   background [ 4 ] = 0 ; 
  477.   background [ 5 ] = 0 ; 
  478.   background [ 2 + mem [ q ] .hh.b0 ] = mem [ q + 2 ] .cint ; 
  479.   background [ 2 + mem [ r ] .hh.b0 ] = background [ 2 + mem [ r ] .hh.b0 ] + 
  480.   mem [ r + 2 ] .cint ; 
  481.   background [ 6 ] = mem [ q + 3 ] .cint + mem [ r + 3 ] .cint ; 
  482.   minimumdemerits = 1073741823L ; 
  483.   minimaldemerits [ 3 ] = 1073741823L ; 
  484.   minimaldemerits [ 2 ] = 1073741823L ; 
  485.   minimaldemerits [ 1 ] = 1073741823L ; 
  486.   minimaldemerits [ 0 ] = 1073741823L ; 
  487.   if ( eqtb [ 4056 ] .hh .v.RH == 0 ) 
  488.   if ( eqtb [ 5718 ] .cint == 0 ) 
  489.   {
  490.     lastspecialline = 0 ; 
  491.     secondwidth = eqtb [ 5704 ] .cint ; 
  492.     secondindent = 0 ; 
  493.   } 
  494.   else {
  495.       
  496.     lastspecialline = abs ( eqtb [ 5308 ] .cint ) ; 
  497.     if ( eqtb [ 5308 ] .cint < 0 ) 
  498.     {
  499.       firstwidth = eqtb [ 5704 ] .cint - abs ( eqtb [ 5718 ] .cint ) ; 
  500.       if ( eqtb [ 5718 ] .cint >= 0 ) 
  501.       firstindent = eqtb [ 5718 ] .cint ; 
  502.       else firstindent = 0 ; 
  503.       secondwidth = eqtb [ 5704 ] .cint ; 
  504.       secondindent = 0 ; 
  505.     } 
  506.     else {
  507.     
  508.       firstwidth = eqtb [ 5704 ] .cint ; 
  509.       firstindent = 0 ; 
  510.       secondwidth = eqtb [ 5704 ] .cint - abs ( eqtb [ 5718 ] .cint ) ; 
  511.       if ( eqtb [ 5718 ] .cint >= 0 ) 
  512.       secondindent = eqtb [ 5718 ] .cint ; 
  513.       else secondindent = 0 ; 
  514.     } 
  515.   } 
  516.   else {
  517.       
  518.     lastspecialline = mem [ eqtb [ 4056 ] .hh .v.RH ] .hh .v.LH - 1 ; 
  519.     secondwidth = mem [ eqtb [ 4056 ] .hh .v.RH + 2 * ( lastspecialline + 1 ) 
  520.     ] .cint ; 
  521.     secondindent = mem [ eqtb [ 4056 ] .hh .v.RH + 2 * lastspecialline + 1 ] 
  522.     .cint ; 
  523.   } 
  524.   if ( eqtb [ 5286 ] .cint == 0 ) 
  525.   easyline = lastspecialline ; 
  526.   else easyline = 65535L ; 
  527.   threshold = eqtb [ 5267 ] .cint ; 
  528.   if ( threshold >= 0 ) 
  529.   {
  530.     ;
  531. #ifdef STAT
  532.     if ( eqtb [ 5299 ] .cint > 0 ) 
  533.     {
  534.       begindiagnostic () ; 
  535.       printnl ( 787 ) ; 
  536.     } 
  537. #endif /* STAT */
  538.     secondpass = false ; 
  539.   } 
  540.   else {
  541.       
  542.     threshold = eqtb [ 5268 ] .cint ; 
  543.     secondpass = true ; 
  544.     ;
  545. #ifdef STAT
  546.     if ( eqtb [ 5299 ] .cint > 0 ) 
  547.     begindiagnostic () ; 
  548. #endif /* STAT */
  549.   } 
  550.   while ( true ) {
  551.       
  552.     q = getnode ( 3 ) ; 
  553.     mem [ q ] .hh.b0 = 0 ; 
  554.     mem [ q ] .hh.b1 = 2 ; 
  555.     mem [ q ] .hh .v.RH = memtop - 7 ; 
  556.     mem [ q + 1 ] .hh .v.RH = 0 ; 
  557.     mem [ q + 1 ] .hh .v.LH = curlist .pgfield + 1 ; 
  558.     mem [ q + 2 ] .cint = 0 ; 
  559.     mem [ memtop - 7 ] .hh .v.RH = q ; 
  560.     activewidth [ 1 ] = background [ 1 ] ; 
  561.     activewidth [ 2 ] = background [ 2 ] ; 
  562.     activewidth [ 3 ] = background [ 3 ] ; 
  563.     activewidth [ 4 ] = background [ 4 ] ; 
  564.     activewidth [ 5 ] = background [ 5 ] ; 
  565.     activewidth [ 6 ] = background [ 6 ] ; 
  566.     passive = 0 ; 
  567.     printednode = memtop - 3 ; 
  568.     passnumber = 0 ; 
  569.     fontinshortdisplay = 0 ; 
  570.     curp = mem [ memtop - 3 ] .hh .v.RH ; 
  571.     autobreaking = true ; 
  572.     prevp = curp ; 
  573.     while ( ( curp != 0 ) && ( mem [ memtop - 7 ] .hh .v.RH != memtop - 7 ) ) 
  574.     {
  575.       if ( ( curp >= himemmin ) ) 
  576.       {
  577.     prevp = curp ; 
  578.     do {
  579.         f = mem [ curp ] .hh.b0 ; 
  580.       activewidth [ 1 ] = activewidth [ 1 ] + fontinfo [ widthbase [ f ] + 
  581.       fontinfo [ charbase [ f ] + mem [ curp ] .hh.b1 ] .qqqq .b0 ] .cint 
  582.       ; 
  583.       curp = mem [ curp ] .hh .v.RH ; 
  584.     } while ( ! ( ! ( curp >= himemmin ) ) ) ; 
  585.       } 
  586.       switch ( mem [ curp ] .hh.b0 ) 
  587.       {case 0 : 
  588.       case 1 : 
  589.       case 2 : 
  590.     activewidth [ 1 ] = activewidth [ 1 ] + mem [ curp + 1 ] .cint ; 
  591.     break ; 
  592.       case 8 : 
  593.     ; 
  594.     break ; 
  595.       case 10 : 
  596.     {
  597.       if ( autobreaking ) 
  598.       {
  599.         if ( ( prevp >= himemmin ) ) 
  600.         trybreak ( 0 , 0 ) ; 
  601.         else if ( ( mem [ prevp ] .hh.b0 < 9 ) ) 
  602.         trybreak ( 0 , 0 ) ; 
  603.       } 
  604.       {
  605.         if ( ( mem [ mem [ curp + 1 ] .hh .v.LH ] .hh.b1 != 0 ) && ( mem [ 
  606.         mem [ curp + 1 ] .hh .v.LH + 3 ] .cint != 0 ) ) 
  607.         {
  608.           mem [ curp + 1 ] .hh .v.LH = finiteshrink ( mem [ curp + 1 ] .hh 
  609.           .v.LH ) ; 
  610.         } 
  611.         q = mem [ curp + 1 ] .hh .v.LH ; 
  612.         activewidth [ 1 ] = activewidth [ 1 ] + mem [ q + 1 ] .cint ; 
  613.         activewidth [ 2 + mem [ q ] .hh.b0 ] = activewidth [ 2 + mem [ q ] 
  614.         .hh.b0 ] + mem [ q + 2 ] .cint ; 
  615.         activewidth [ 6 ] = activewidth [ 6 ] + mem [ q + 3 ] .cint ; 
  616.       } 
  617.       if ( secondpass && autobreaking ) 
  618.       {
  619.         s = mem [ curp ] .hh .v.RH ; 
  620.         if ( s != 0 ) 
  621.         {
  622.           while ( true ) {
  623.           
  624.         if ( ( s >= himemmin ) ) 
  625.         {
  626.           c = mem [ s ] .hh.b1 ; 
  627.           hf = mem [ s ] .hh.b0 ; 
  628.         } 
  629.         else if ( mem [ s ] .hh.b0 == 6 ) 
  630.         {
  631.           q = mem [ s + 1 ] .hh .v.RH ; 
  632.           c = mem [ q ] .hh.b1 ; 
  633.           hf = mem [ q ] .hh.b0 ; 
  634.         } 
  635.         else if ( ( mem [ s ] .hh.b0 == 11 ) && ( mem [ s ] .hh.b1 == 
  636.         0 ) ) 
  637.         c = 128 ; 
  638.         else if ( mem [ s ] .hh.b0 == 8 ) 
  639.         c = 128 ; 
  640.         else goto lab31 ; 
  641.         if ( c < 128 ) 
  642.         if ( eqtb [ 4755 + c ] .hh .v.RH != 0 ) 
  643.         if ( ( eqtb [ 4755 + c ] .hh .v.RH == c ) || ( eqtb [ 5305 ] 
  644.         .cint > 0 ) ) 
  645.         goto lab32 ; 
  646.         else goto lab31 ; 
  647.         s = mem [ s ] .hh .v.RH ; 
  648.           } 
  649.           lab32: hyfchar = hyphenchar [ hf ] ; 
  650.           if ( hyfchar < 0 ) 
  651.           goto lab31 ; 
  652.           if ( hyfchar > 255 ) 
  653.           goto lab31 ; 
  654.           ha = s ; 
  655.           hn = 0 ; 
  656.           while ( true ) {
  657.           
  658.         if ( ( s >= himemmin ) ) 
  659.         {
  660.           if ( mem [ s ] .hh.b0 != hf ) 
  661.           goto lab33 ; 
  662.           c = mem [ s ] .hh.b1 ; 
  663.           if ( c >= 128 ) 
  664.           goto lab33 ; 
  665.           if ( ( eqtb [ 4755 + c ] .hh .v.RH == 0 ) || ( hn == 63 ) ) 
  666.           goto lab33 ; 
  667.           hb = s ; 
  668.           incr ( hn ) ; 
  669.           hu [ hn ] = c ; 
  670.           hc [ hn ] = eqtb [ 4755 + c ] .hh .v.RH - 1 ; 
  671.         } 
  672.         else if ( mem [ s ] .hh.b0 == 6 ) 
  673.         {
  674.           j = hn ; 
  675.           q = mem [ s + 1 ] .hh .v.RH ; 
  676.           if ( mem [ q ] .hh.b0 != hf ) 
  677.           goto lab33 ; 
  678.           do {
  679.               c = mem [ q ] .hh.b1 ; 
  680.             if ( c >= 128 ) 
  681.             goto lab33 ; 
  682.             if ( ( eqtb [ 4755 + c ] .hh .v.RH == 0 ) || ( j == 63 ) ) 
  683.             goto lab33 ; 
  684.             incr ( j ) ; 
  685.             hu [ j ] = c ; 
  686.             hc [ j ] = eqtb [ 4755 + c ] .hh .v.RH - 1 ; 
  687.             q = mem [ q ] .hh .v.RH ; 
  688.           } while ( ! ( q == 0 ) ) ; 
  689.           hb = s ; 
  690.           hn = j ; 
  691.         } 
  692.         else if ( ( mem [ s ] .hh.b0 != 11 ) || ( mem [ s ] .hh.b1 != 
  693.         0 ) ) 
  694.         goto lab33 ; 
  695.         s = mem [ s ] .hh .v.RH ; 
  696.           } 
  697.           lab33: ; 
  698.           if ( hn < 5 ) 
  699.           goto lab31 ; 
  700.           while ( true ) {
  701.           
  702.         if ( ! ( ( s >= himemmin ) ) ) 
  703.         switch ( mem [ s ] .hh.b0 ) 
  704.         {case 6 : 
  705.           ; 
  706.           break ; 
  707.         case 11 : 
  708.           if ( mem [ s ] .hh.b1 != 0 ) 
  709.           goto lab34 ; 
  710.           break ; 
  711.         case 8 : 
  712.         case 10 : 
  713.         case 12 : 
  714.         case 3 : 
  715.         case 5 : 
  716.         case 4 : 
  717.           goto lab34 ; 
  718.           break ; 
  719.           default: 
  720.           goto lab31 ; 
  721.           break ; 
  722.         } 
  723.         s = mem [ s ] .hh .v.RH ; 
  724.           } 
  725.           lab34: ; 
  726.           hyphenate () ; 
  727.         } 
  728.         lab31: ; 
  729.       } 
  730.     } 
  731.     break ; 
  732.       case 11 : 
  733.     {
  734.       if ( ! ( mem [ curp ] .hh .v.RH >= himemmin ) && autobreaking ) 
  735.       if ( mem [ mem [ curp ] .hh .v.RH ] .hh.b0 == 10 ) 
  736.       trybreak ( 0 , 0 ) ; 
  737.       activewidth [ 1 ] = activewidth [ 1 ] + mem [ curp + 1 ] .cint ; 
  738.     } 
  739.     break ; 
  740.       case 6 : 
  741.     {
  742.       f = mem [ curp + 1 ] .hh.b0 ; 
  743.       activewidth [ 1 ] = activewidth [ 1 ] + fontinfo [ widthbase [ f ] + 
  744.       fontinfo [ charbase [ f ] + mem [ curp + 1 ] .hh.b1 ] .qqqq .b0 ] 
  745.       .cint ; 
  746.     } 
  747.     break ; 
  748.       case 7 : 
  749.     {
  750.       s = mem [ curp + 1 ] .hh .v.LH ; 
  751.       discwidth = 0 ; 
  752.       if ( s == 0 ) 
  753.       trybreak ( eqtb [ 5271 ] .cint , 1 ) ; 
  754.       else {
  755.           
  756.         do {
  757.         if ( ( s >= himemmin ) ) 
  758.           {
  759.         f = mem [ s ] .hh.b0 ; 
  760.         discwidth = discwidth + fontinfo [ widthbase [ f ] + fontinfo 
  761.         [ charbase [ f ] + mem [ s ] .hh.b1 ] .qqqq .b0 ] .cint ; 
  762.           } 
  763.           else switch ( mem [ s ] .hh.b0 ) 
  764.           {case 6 : 
  765.         {
  766.           f = mem [ s + 1 ] .hh.b0 ; 
  767.           discwidth = discwidth + fontinfo [ widthbase [ f ] + 
  768.           fontinfo [ charbase [ f ] + mem [ s + 1 ] .hh.b1 ] .qqqq .b0 
  769.           ] .cint ; 
  770.         } 
  771.         break ; 
  772.           case 0 : 
  773.           case 1 : 
  774.           case 2 : 
  775.           case 11 : 
  776.         discwidth = discwidth + mem [ s + 1 ] .cint ; 
  777.         break ; 
  778.         default: 
  779.         confusion ( 790 ) ; 
  780.         break ; 
  781.           } 
  782.           s = mem [ s ] .hh .v.RH ; 
  783.         } while ( ! ( s == 0 ) ) ; 
  784.         activewidth [ 1 ] = activewidth [ 1 ] + discwidth ; 
  785.         trybreak ( eqtb [ 5270 ] .cint , 1 ) ; 
  786.         activewidth [ 1 ] = activewidth [ 1 ] - discwidth ; 
  787.       } 
  788.     } 
  789.     break ; 
  790.       case 9 : 
  791.     {
  792.       autobreaking = ( mem [ curp ] .hh.b1 == 1 ) ; 
  793.       {
  794.         if ( ! ( mem [ curp ] .hh .v.RH >= himemmin ) && autobreaking ) 
  795.         if ( mem [ mem [ curp ] .hh .v.RH ] .hh.b0 == 10 ) 
  796.         trybreak ( 0 , 0 ) ; 
  797.         activewidth [ 1 ] = activewidth [ 1 ] + mem [ curp + 1 ] .cint ; 
  798.       } 
  799.     } 
  800.     break ; 
  801.       case 12 : 
  802.     trybreak ( mem [ curp + 1 ] .cint , 0 ) ; 
  803.     break ; 
  804.       case 4 : 
  805.       case 3 : 
  806.       case 5 : 
  807.     ; 
  808.     break ; 
  809.     default: 
  810.     confusion ( 789 ) ; 
  811.     break ; 
  812.       } 
  813.       prevp = curp ; 
  814.       curp = mem [ curp ] .hh .v.RH ; 
  815.     } 
  816.     if ( curp == 0 ) 
  817.     {
  818.       trybreak ( -10000 , 1 ) ; 
  819.       if ( mem [ memtop - 7 ] .hh .v.RH != memtop - 7 ) 
  820.       {
  821.     r = mem [ memtop - 7 ] .hh .v.RH ; 
  822.     fewestdemerits = 1073741823L ; 
  823.     do {
  824.         if ( mem [ r ] .hh.b0 != 2 ) 
  825.       if ( mem [ r + 2 ] .cint < fewestdemerits ) 
  826.       {
  827.         fewestdemerits = mem [ r + 2 ] .cint ; 
  828.         bestbet = r ; 
  829.       } 
  830.       r = mem [ r ] .hh .v.RH ; 
  831.     } while ( ! ( r == memtop - 7 ) ) ; 
  832.     bestline = mem [ bestbet + 1 ] .hh .v.LH ; 
  833.     if ( eqtb [ 5286 ] .cint == 0 ) 
  834.     goto lab30 ; 
  835.     {
  836.       r = mem [ memtop - 7 ] .hh .v.RH ; 
  837.       actuallooseness = 0 ; 
  838.       do {
  839.           if ( mem [ r ] .hh.b0 != 2 ) 
  840.         {
  841.           linediff = mem [ r + 1 ] .hh .v.LH - bestline ; 
  842.           if ( ( ( linediff < actuallooseness ) && ( eqtb [ 5286 ] .cint 
  843.           <= linediff ) ) || ( ( linediff > actuallooseness ) && ( eqtb [ 
  844.           5286 ] .cint >= linediff ) ) ) 
  845.           {
  846.         bestbet = r ; 
  847.         actuallooseness = linediff ; 
  848.         fewestdemerits = mem [ r + 2 ] .cint ; 
  849.           } 
  850.           else if ( ( linediff == actuallooseness ) && ( mem [ r + 2 ] 
  851.           .cint < fewestdemerits ) ) 
  852.           {
  853.         bestbet = r ; 
  854.         fewestdemerits = mem [ r + 2 ] .cint ; 
  855.           } 
  856.         } 
  857.         r = mem [ r ] .hh .v.RH ; 
  858.       } while ( ! ( r == memtop - 7 ) ) ; 
  859.       bestline = mem [ bestbet + 1 ] .hh .v.LH ; 
  860.     } 
  861.     if ( ( actuallooseness == eqtb [ 5286 ] .cint ) || secondpass ) 
  862.     goto lab30 ; 
  863.       } 
  864.     } 
  865.     q = mem [ memtop - 7 ] .hh .v.RH ; 
  866.     while ( q != memtop - 7 ) {
  867.     
  868.       curp = mem [ q ] .hh .v.RH ; 
  869.       if ( mem [ q ] .hh.b0 == 2 ) 
  870.       freenode ( q , 7 ) ; 
  871.       else freenode ( q , 3 ) ; 
  872.       q = curp ; 
  873.     } 
  874.     q = passive ; 
  875.     while ( q != 0 ) {
  876.     
  877.       curp = mem [ q ] .hh .v.RH ; 
  878.       freenode ( q , 2 ) ; 
  879.       q = curp ; 
  880.     } 
  881.     ;
  882. #ifdef STAT
  883.     if ( eqtb [ 5299 ] .cint > 0 ) 
  884.     printnl ( 788 ) ; 
  885. #endif /* STAT */
  886.     threshold = eqtb [ 5268 ] .cint ; 
  887.     secondpass = true ; 
  888.   } 
  889.   lab30: 
  890.     ;
  891. #ifdef STAT
  892.   if ( eqtb [ 5299 ] .cint > 0 ) 
  893.   enddiagnostic ( true ) ; 
  894. #endif /* STAT */
  895.   postlinebreak ( finalwidowpenalty ) ; 
  896.   q = mem [ memtop - 7 ] .hh .v.RH ; 
  897.   while ( q != memtop - 7 ) {
  898.       
  899.     curp = mem [ q ] .hh .v.RH ; 
  900.     if ( mem [ q ] .hh.b0 == 2 ) 
  901.     freenode ( q , 7 ) ; 
  902.     else freenode ( q , 3 ) ; 
  903.     q = curp ; 
  904.   } 
  905.   q = passive ; 
  906.   while ( q != 0 ) {
  907.       
  908.     curp = mem [ q ] .hh .v.RH ; 
  909.     freenode ( q , 2 ) ; 
  910.     q = curp ; 
  911.   } 
  912.   packbeginline = 0 ; 
  913. } 
  914. newhyphexceptions () {
  915.     /* 21 10 40 45 30 */ newhyphexceptions_regmem 
  916.   smallnumber n  ; 
  917.   smallnumber j  ; 
  918.   hyphpointer h  ; 
  919.   strnumber k  ; 
  920.   halfword p  ; 
  921.   halfword q  ; 
  922.   strnumber s, t  ; 
  923.   poolpointer u, v  ; 
  924.   scanleftbrace () ; 
  925.   n = 0 ; 
  926.   p = 0 ; 
  927.   while ( true ) {
  928.       
  929.     getxtoken () ; 
  930.     lab21: switch ( curcmd ) 
  931.     {case 11 : 
  932.     case 12 : 
  933.     case 67 : 
  934.       if ( curchr == 45 ) 
  935.       {
  936.     if ( n > 1 ) 
  937.     {
  938.       q = getavail () ; 
  939.       mem [ q ] .hh .v.RH = p ; 
  940.       mem [ q ] .hh .v.LH = n ; 
  941.       p = q ; 
  942.     } 
  943.       } 
  944.       else {
  945.       
  946.     if ( ( curchr > 127 ) || ( eqtb [ 4755 + curchr ] .hh .v.RH == 0 ) ) 
  947.     {
  948.       {
  949.         if ( interaction == 3 ) 
  950.         wakeupterminal () ; 
  951.         printnl ( 133 ) ; 
  952.         print ( 797 ) ; 
  953.       } 
  954.       {
  955.         helpptr = 2 ; 
  956.         helpline [ 1 ] = 798 ; 
  957.         helpline [ 0 ] = 799 ; 
  958.       } 
  959.       error () ; 
  960.     } 
  961.     else if ( n < 63 ) 
  962.     {
  963.       incr ( n ) ; 
  964.       hc [ n ] = eqtb [ 4755 + curchr ] .hh .v.RH - 1 ; 
  965.     } 
  966.       } 
  967.       break ; 
  968.     case 16 : 
  969.       {
  970.     scancharnum () ; 
  971.     curchr = curval ; 
  972.     curcmd = 67 ; 
  973.     goto lab21 ; 
  974.       } 
  975.       break ; 
  976.     case 10 : 
  977.     case 2 : 
  978.       {
  979.     if ( n > 4 ) 
  980.     {
  981.       {
  982.         if ( poolptr + n > poolsize ) 
  983.         overflow ( 128 , poolsize - initpoolptr ) ; 
  984.       } 
  985.       h = 0 ; 
  986.       {register integer for_end; j = 1 ; for_end = n ; if ( j <= for_end) 
  987.       do 
  988.         {
  989.           h = ( h + h + hc [ j ] ) % 307 ; 
  990.           {
  991.         strpool [ poolptr ] = hc [ j ] ; 
  992.         incr ( poolptr ) ; 
  993.           } 
  994.         } 
  995.       while ( j++ < for_end ) ; } 
  996.       s = makestring () ; 
  997.       while ( true ) {
  998.           
  999.         if ( p == 0 ) 
  1000.         goto lab30 ; 
  1001.         if ( mem [ p ] .hh .v.LH < n - 2 ) 
  1002.         goto lab30 ; 
  1003.         q = mem [ p ] .hh .v.RH ; 
  1004.         {
  1005.           mem [ p ] .hh .v.RH = avail ; 
  1006.           avail = p ; 
  1007.     ;
  1008. #ifdef STAT
  1009.           decr ( dynused ) ; 
  1010. #endif /* STAT */
  1011.         } 
  1012.         p = q ; 
  1013.       } 
  1014.       lab30: if ( hyphcount == 307 ) 
  1015.       overflow ( 800 , 307 ) ; 
  1016.       incr ( hyphcount ) ; 
  1017.       while ( hyphword [ h ] != 0 ) {
  1018.           
  1019.         k = hyphword [ h ] ; 
  1020.         if ( ( strstart [ k + 1 ] - strstart [ k ] ) < ( strstart [ s + 1 
  1021.         ] - strstart [ s ] ) ) 
  1022.         goto lab40 ; 
  1023.         if ( ( strstart [ k + 1 ] - strstart [ k ] ) > ( strstart [ s + 1 
  1024.         ] - strstart [ s ] ) ) 
  1025.         goto lab45 ; 
  1026.         u = strstart [ k ] ; 
  1027.         v = strstart [ s ] ; 
  1028.         do {
  1029.         if ( strpool [ u ] < strpool [ v ] ) 
  1030.           goto lab40 ; 
  1031.           if ( strpool [ u ] > strpool [ v ] ) 
  1032.           goto lab45 ; 
  1033.           incr ( u ) ; 
  1034.           incr ( v ) ; 
  1035.         } while ( ! ( u == strstart [ k + 1 ] ) ) ; 
  1036.         lab40: q = hyphlist [ h ] ; 
  1037.         hyphlist [ h ] = p ; 
  1038.         p = q ; 
  1039.         t = hyphword [ h ] ; 
  1040.         hyphword [ h ] = s ; 
  1041.         s = t ; 
  1042.         lab45: ; 
  1043.         if ( h > 0 ) 
  1044.         decr ( h ) ; 
  1045.         else h = 307 ; 
  1046.       } 
  1047.       hyphword [ h ] = s ; 
  1048.       hyphlist [ h ] = p ; 
  1049.     } 
  1050.     if ( curcmd == 2 ) 
  1051.     return ; 
  1052.     n = 0 ; 
  1053.     p = 0 ; 
  1054.       } 
  1055.       break ; 
  1056.       default: 
  1057.       {
  1058.     {
  1059.       if ( interaction == 3 ) 
  1060.       wakeupterminal () ; 
  1061.       printnl ( 133 ) ; 
  1062.       print ( 536 ) ; 
  1063.     } 
  1064.     printesc ( 793 ) ; 
  1065.     print ( 794 ) ; 
  1066.     {
  1067.       helpptr = 2 ; 
  1068.       helpline [ 1 ] = 795 ; 
  1069.       helpline [ 0 ] = 796 ; 
  1070.     } 
  1071.     error () ; 
  1072.       } 
  1073.       break ; 
  1074.     } 
  1075.   } 
  1076. } 
  1077. halfword zprunepagetop ( p ) 
  1078. halfword p ; 
  1079. {register halfword Result; prunepagetop_regmem 
  1080.   halfword prevp  ; 
  1081.   halfword q  ; 
  1082.   prevp = memtop - 3 ; 
  1083.   mem [ memtop - 3 ] .hh .v.RH = p ; 
  1084.   while ( p != 0 ) switch ( mem [ p ] .hh.b0 ) 
  1085.   {case 0 : 
  1086.   case 1 : 
  1087.   case 2 : 
  1088.     {
  1089.       q = newskipparam ( 10 ) ; 
  1090.       mem [ prevp ] .hh .v.RH = q ; 
  1091.       mem [ q ] .hh .v.RH = p ; 
  1092.       if ( mem [ tempptr + 1 ] .cint > mem [ p + 3 ] .cint ) 
  1093.       mem [ tempptr + 1 ] .cint = mem [ tempptr + 1 ] .cint - mem [ p + 3 ] 
  1094.       .cint ; 
  1095.       else mem [ tempptr + 1 ] .cint = 0 ; 
  1096.       p = 0 ; 
  1097.     } 
  1098.     break ; 
  1099.   case 8 : 
  1100.   case 4 : 
  1101.   case 3 : 
  1102.     {
  1103.       prevp = p ; 
  1104.       p = mem [ prevp ] .hh .v.RH ; 
  1105.     } 
  1106.     break ; 
  1107.   case 10 : 
  1108.   case 11 : 
  1109.   case 12 : 
  1110.     {
  1111.       q = p ; 
  1112.       p = mem [ q ] .hh .v.RH ; 
  1113.       mem [ q ] .hh .v.RH = 0 ; 
  1114.       mem [ prevp ] .hh .v.RH = p ; 
  1115.       flushnodelist ( q ) ; 
  1116.     } 
  1117.     break ; 
  1118.     default: 
  1119.     confusion ( 807 ) ; 
  1120.     break ; 
  1121.   } 
  1122.   Result = mem [ memtop - 3 ] .hh .v.RH ; 
  1123.   return(Result) ; 
  1124. } 
  1125. halfword zvertbreak ( p , h , d ) 
  1126. halfword p ; 
  1127. scaled h , d ; 
  1128. {/* 30 45 90 */ register halfword Result; vertbreak_regmem 
  1129.   halfword prevp  ; 
  1130.   halfword q, r  ; 
  1131.   integer pi  ; 
  1132.   integer b  ; 
  1133.   integer leastcost  ; 
  1134.   halfword bestplace  ; 
  1135.   scaled prevdp  ; 
  1136.   smallnumber t  ; 
  1137.   prevp = p ; 
  1138.   leastcost = 1073741823L ; 
  1139.   activewidth [ 1 ] = 0 ; 
  1140.   activewidth [ 2 ] = 0 ; 
  1141.   activewidth [ 3 ] = 0 ; 
  1142.   activewidth [ 4 ] = 0 ; 
  1143.   activewidth [ 5 ] = 0 ; 
  1144.   activewidth [ 6 ] = 0 ; 
  1145.   prevdp = 0 ; 
  1146.   while ( true ) {
  1147.       
  1148.     if ( p == 0 ) 
  1149.     pi = -10000 ; 
  1150.     else switch ( mem [ p ] .hh.b0 ) 
  1151.     {case 0 : 
  1152.     case 1 : 
  1153.     case 2 : 
  1154.       {
  1155.     activewidth [ 1 ] = activewidth [ 1 ] + prevdp + mem [ p + 3 ] .cint ; 
  1156.     prevdp = mem [ p + 2 ] .cint ; 
  1157.     goto lab45 ; 
  1158.       } 
  1159.       break ; 
  1160.     case 8 : 
  1161.       goto lab45 ; 
  1162.       break ; 
  1163.     case 10 : 
  1164.       if ( ( mem [ prevp ] .hh.b0 < 9 ) ) 
  1165.       pi = 0 ; 
  1166.       else goto lab90 ; 
  1167.       break ; 
  1168.     case 11 : 
  1169.       {
  1170.     if ( mem [ p ] .hh .v.RH == 0 ) 
  1171.     t = 12 ; 
  1172.     else t = mem [ mem [ p ] .hh .v.RH ] .hh.b0 ; 
  1173.     if ( t == 10 ) 
  1174.     pi = 0 ; 
  1175.     else goto lab90 ; 
  1176.       } 
  1177.       break ; 
  1178.     case 12 : 
  1179.       pi = mem [ p + 1 ] .cint ; 
  1180.       break ; 
  1181.     case 4 : 
  1182.     case 3 : 
  1183.       goto lab45 ; 
  1184.       break ; 
  1185.       default: 
  1186.       confusion ( 808 ) ; 
  1187.       break ; 
  1188.     } 
  1189.     if ( pi < 10000 ) 
  1190.     {
  1191.       if ( activewidth [ 1 ] < h ) 
  1192.       if ( ( activewidth [ 3 ] != 0 ) || ( activewidth [ 4 ] != 0 ) || ( 
  1193.       activewidth [ 5 ] != 0 ) ) 
  1194.       b = 0 ; 
  1195.       else b = badness ( h - activewidth [ 1 ] , activewidth [ 2 ] ) ; 
  1196.       else if ( activewidth [ 1 ] - h > activewidth [ 6 ] ) 
  1197.       b = 1073741823L ; 
  1198.       else b = badness ( activewidth [ 1 ] - h , activewidth [ 6 ] ) ; 
  1199.       if ( b < 1073741823L ) 
  1200.       if ( pi <= -10000 ) 
  1201.       b = pi ; 
  1202.       else if ( b < 10000 ) 
  1203.       b = b + pi ; 
  1204.       else b = 100000L ; 
  1205.       if ( b <= leastcost ) 
  1206.       {
  1207.     bestplace = p ; 
  1208.     leastcost = b ; 
  1209.     bestheightplusdepth = activewidth [ 1 ] + prevdp ; 
  1210.       } 
  1211.       if ( ( b == 1073741823L ) || ( pi <= -10000 ) ) 
  1212.       goto lab30 ; 
  1213.     } 
  1214.     if ( ( mem [ p ] .hh.b0 < 10 ) || ( mem [ p ] .hh.b0 > 11 ) ) 
  1215.     goto lab45 ; 
  1216.     lab90: if ( mem [ p ] .hh.b0 == 11 ) 
  1217.     q = p ; 
  1218.     else {
  1219.     
  1220.       q = mem [ p + 1 ] .hh .v.LH ; 
  1221.       activewidth [ 2 + mem [ q ] .hh.b0 ] = activewidth [ 2 + mem [ q ] 
  1222.       .hh.b0 ] + mem [ q + 2 ] .cint ; 
  1223.       activewidth [ 6 ] = activewidth [ 6 ] + mem [ q + 3 ] .cint ; 
  1224.       if ( ( mem [ q ] .hh.b1 != 0 ) && ( mem [ q + 3 ] .cint != 0 ) ) 
  1225.       {
  1226.     {
  1227.       if ( interaction == 3 ) 
  1228.       wakeupterminal () ; 
  1229.       printnl ( 133 ) ; 
  1230.       print ( 809 ) ; 
  1231.     } 
  1232.     {
  1233.       helpptr = 4 ; 
  1234.       helpline [ 3 ] = 810 ; 
  1235.       helpline [ 2 ] = 811 ; 
  1236.       helpline [ 1 ] = 812 ; 
  1237.       helpline [ 0 ] = 776 ; 
  1238.     } 
  1239.     error () ; 
  1240.     r = newspec ( q ) ; 
  1241.     mem [ r ] .hh.b1 = 0 ; 
  1242.     deleteglueref ( q ) ; 
  1243.     mem [ p + 1 ] .hh .v.LH = r ; 
  1244.       } 
  1245.     } 
  1246.     activewidth [ 1 ] = activewidth [ 1 ] + prevdp + mem [ q + 1 ] .cint ; 
  1247.     prevdp = 0 ; 
  1248.     lab45: if ( prevdp > d ) 
  1249.     {
  1250.       activewidth [ 1 ] = activewidth [ 1 ] + prevdp - d ; 
  1251.       prevdp = d ; 
  1252.     } 
  1253.     prevp = p ; 
  1254.     p = mem [ prevp ] .hh .v.RH ; 
  1255.   } 
  1256.   lab30: Result = bestplace ; 
  1257.   return(Result) ; 
  1258. } 
  1259. halfword zvsplit ( n , h ) 
  1260. eightbits n ; 
  1261. scaled h ; 
  1262. {/* 10 30 */ register halfword Result; vsplit_regmem 
  1263.   halfword v  ; 
  1264.   halfword p  ; 
  1265.   halfword q  ; 
  1266.   v = eqtb [ 4322 + n ] .hh .v.RH ; 
  1267.   if ( curmark [ 3 ] != 0 ) 
  1268.   {
  1269.     deletetokenref ( curmark [ 3 ] ) ; 
  1270.     curmark [ 3 ] = 0 ; 
  1271.     deletetokenref ( curmark [ 4 ] ) ; 
  1272.     curmark [ 4 ] = 0 ; 
  1273.   } 
  1274.   if ( v == 0 ) 
  1275.   {
  1276.     Result = 0 ; 
  1277.     return(Result) ; 
  1278.   } 
  1279.   if ( mem [ v ] .hh.b0 != 1 ) 
  1280.   {
  1281.     {
  1282.       if ( interaction == 3 ) 
  1283.       wakeupterminal () ; 
  1284.       printnl ( 133 ) ; 
  1285.       print ( 206 ) ; 
  1286.     } 
  1287.     printesc ( 813 ) ; 
  1288.     print ( 814 ) ; 
  1289.     printesc ( 815 ) ; 
  1290.     {
  1291.       helpptr = 2 ; 
  1292.       helpline [ 1 ] = 816 ; 
  1293.       helpline [ 0 ] = 817 ; 
  1294.     } 
  1295.     error () ; 
  1296.     Result = 0 ; 
  1297.     return(Result) ; 
  1298.   } 
  1299.   q = vertbreak ( mem [ v + 5 ] .hh .v.RH , h , eqtb [ 5707 ] .cint ) ; 
  1300.   p = mem [ v + 5 ] .hh .v.RH ; 
  1301.   if ( p == q ) 
  1302.   mem [ v + 5 ] .hh .v.RH = 0 ; 
  1303.   else while ( true ) {
  1304.       
  1305.     if ( mem [ p ] .hh.b0 == 4 ) 
  1306.     if ( curmark [ 3 ] == 0 ) 
  1307.     {
  1308.       curmark [ 3 ] = mem [ p + 1 ] .cint ; 
  1309.       curmark [ 4 ] = curmark [ 3 ] ; 
  1310.       mem [ curmark [ 3 ] ] .hh .v.LH = mem [ curmark [ 3 ] ] .hh .v.LH + 2 ; 
  1311.     } 
  1312.     else {
  1313.     
  1314.       deletetokenref ( curmark [ 4 ] ) ; 
  1315.       curmark [ 4 ] = mem [ p + 1 ] .cint ; 
  1316.       incr ( mem [ curmark [ 4 ] ] .hh .v.LH ) ; 
  1317.     } 
  1318.     if ( mem [ p ] .hh .v.RH == q ) 
  1319.     {
  1320.       mem [ p ] .hh .v.RH = 0 ; 
  1321.       goto lab30 ; 
  1322.     } 
  1323.     p = mem [ p ] .hh .v.RH ; 
  1324.   } 
  1325.   lab30: ; 
  1326.   q = prunepagetop ( q ) ; 
  1327.   p = mem [ v + 5 ] .hh .v.RH ; 
  1328.   freenode ( v , 7 ) ; 
  1329.   if ( q == 0 ) 
  1330.   eqtb [ 4322 + n ] .hh .v.RH = 0 ; 
  1331.   else eqtb [ 4322 + n ] .hh .v.RH = vpackage ( q , 0 , 1 , 1073741823L ) ; 
  1332.   Result = vpackage ( p , h , 0 , eqtb [ 5707 ] .cint ) ; 
  1333.   return(Result) ; 
  1334. } 
  1335. printtotals () {
  1336.     printtotals_regmem 
  1337.   printscaled ( pagesofar [ 1 ] ) ; 
  1338.   if ( pagesofar [ 2 ] != 0 ) 
  1339.   {
  1340.     print ( 181 ) ; 
  1341.     printscaled ( pagesofar [ 2 ] ) ; 
  1342.     print ( 206 ) ; 
  1343.   } 
  1344.   if ( pagesofar [ 3 ] != 0 ) 
  1345.   {
  1346.     print ( 181 ) ; 
  1347.     printscaled ( pagesofar [ 3 ] ) ; 
  1348.     print ( 180 ) ; 
  1349.   } 
  1350.   if ( pagesofar [ 4 ] != 0 ) 
  1351.   {
  1352.     print ( 181 ) ; 
  1353.     printscaled ( pagesofar [ 4 ] ) ; 
  1354.     print ( 826 ) ; 
  1355.   } 
  1356.   if ( pagesofar [ 5 ] != 0 ) 
  1357.   {
  1358.     print ( 181 ) ; 
  1359.     printscaled ( pagesofar [ 5 ] ) ; 
  1360.     print ( 827 ) ; 
  1361.   } 
  1362.   if ( pagesofar [ 6 ] != 0 ) 
  1363.   {
  1364.     print ( 182 ) ; 
  1365.     printscaled ( pagesofar [ 6 ] ) ; 
  1366.   } 
  1367. } 
  1368. zfreezepagespecs ( s ) 
  1369. smallnumber s ; 
  1370. {freezepagespecs_regmem 
  1371.   pagecontents = s ; 
  1372.   pagesofar [ 0 ] = eqtb [ 5705 ] .cint ; 
  1373.   pagemaxdepth = eqtb [ 5706 ] .cint ; 
  1374.   pagesofar [ 7 ] = 0 ; 
  1375.   pagesofar [ 1 ] = 0 ; 
  1376.   pagesofar [ 2 ] = 0 ; 
  1377.   pagesofar [ 3 ] = 0 ; 
  1378.   pagesofar [ 4 ] = 0 ; 
  1379.   pagesofar [ 5 ] = 0 ; 
  1380.   pagesofar [ 6 ] = 0 ; 
  1381.   leastpagecost = 1073741823L ; 
  1382.     ;
  1383. #ifdef STAT
  1384.   if ( eqtb [ 5300 ] .cint > 0 ) 
  1385.   {
  1386.     begindiagnostic () ; 
  1387.     printnl ( 835 ) ; 
  1388.     printscaled ( pagesofar [ 0 ] ) ; 
  1389.     print ( 836 ) ; 
  1390.     printscaled ( pagemaxdepth ) ; 
  1391.     enddiagnostic ( false ) ; 
  1392.   } 
  1393. #endif /* STAT */
  1394. } 
  1395. zboxerror ( n ) 
  1396. eightbits n ; 
  1397. {boxerror_regmem 
  1398.   error () ; 
  1399.   begindiagnostic () ; 
  1400.   printnl ( 689 ) ; 
  1401.   showbox ( eqtb [ 4322 + n ] .hh .v.RH ) ; 
  1402.   enddiagnostic ( true ) ; 
  1403.   flushnodelist ( eqtb [ 4322 + n ] .hh .v.RH ) ; 
  1404.   eqtb [ 4322 + n ] .hh .v.RH = 0 ; 
  1405. } 
  1406. zensurevbox ( n ) 
  1407. eightbits n ; 
  1408. {ensurevbox_regmem 
  1409.   halfword p  ; 
  1410.   p = eqtb [ 4322 + n ] .hh .v.RH ; 
  1411.   if ( p != 0 ) 
  1412.   if ( mem [ p ] .hh.b0 == 0 ) 
  1413.   {
  1414.     {
  1415.       if ( interaction == 3 ) 
  1416.       wakeupterminal () ; 
  1417.       printnl ( 133 ) ; 
  1418.       print ( 837 ) ; 
  1419.     } 
  1420.     {
  1421.       helpptr = 3 ; 
  1422.       helpline [ 2 ] = 838 ; 
  1423.       helpline [ 1 ] = 839 ; 
  1424.       helpline [ 0 ] = 840 ; 
  1425.     } 
  1426.     boxerror ( n ) ; 
  1427.   } 
  1428. } 
  1429. zfireup ( c ) 
  1430. halfword c ; 
  1431. {/* 10 */ fireup_regmem 
  1432.   halfword p, q, r, s  ; 
  1433.   halfword prevp  ; 
  1434.   unsigned char n  ; 
  1435.   boolean wait  ; 
  1436.   integer savevbadness  ; 
  1437.   scaled savevfuzz  ; 
  1438.   halfword savesplittopskip  ; 
  1439.   if ( mem [ bestpagebreak ] .hh.b0 == 12 ) 
  1440.   {
  1441.     geqworddefine ( 5306 , mem [ bestpagebreak + 1 ] .cint ) ; 
  1442.     mem [ bestpagebreak + 1 ] .cint = 10000 ; 
  1443.   } 
  1444.   else geqworddefine ( 5306 , 10000 ) ; 
  1445.   if ( curmark [ 2 ] != 0 ) 
  1446.   {
  1447.     if ( curmark [ 0 ] != 0 ) 
  1448.     deletetokenref ( curmark [ 0 ] ) ; 
  1449.     curmark [ 0 ] = curmark [ 2 ] ; 
  1450.     incr ( mem [ curmark [ 0 ] ] .hh .v.LH ) ; 
  1451.     deletetokenref ( curmark [ 1 ] ) ; 
  1452.     curmark [ 1 ] = 0 ; 
  1453.   } 
  1454.   if ( c == bestpagebreak ) 
  1455.   bestpagebreak = 0 ; 
  1456.   if ( eqtb [ 4577 ] .hh .v.RH != 0 ) 
  1457.   {
  1458.     {
  1459.       if ( interaction == 3 ) 
  1460.       wakeupterminal () ; 
  1461.       printnl ( 133 ) ; 
  1462.       print ( 206 ) ; 
  1463.     } 
  1464.     printesc ( 274 ) ; 
  1465.     print ( 851 ) ; 
  1466.     {
  1467.       helpptr = 2 ; 
  1468.       helpline [ 1 ] = 852 ; 
  1469.       helpline [ 0 ] = 840 ; 
  1470.     } 
  1471.     boxerror ( 255 ) ; 
  1472.   } 
  1473.   insertpenalties = 0 ; 
  1474.   savesplittopskip = eqtb [ 3536 ] .hh .v.RH ; 
  1475.   r = mem [ memtop ] .hh .v.RH ; 
  1476.   while ( r != memtop ) {
  1477.       
  1478.     if ( mem [ r + 2 ] .hh .v.LH != 0 ) 
  1479.     {
  1480.       n = mem [ r ] .hh.b1 ; 
  1481.       ensurevbox ( n ) ; 
  1482.       if ( eqtb [ 4322 + n ] .hh .v.RH == 0 ) 
  1483.       eqtb [ 4322 + n ] .hh .v.RH = newnullbox () ; 
  1484.       p = eqtb [ 4322 + n ] .hh .v.RH + 5 ; 
  1485.       while ( mem [ p ] .hh .v.RH != 0 ) p = mem [ p ] .hh .v.RH ; 
  1486.       mem [ r + 2 ] .hh .v.RH = p ; 
  1487.     } 
  1488.     r = mem [ r ] .hh .v.RH ; 
  1489.   } 
  1490.   q = memtop - 4 ; 
  1491.   mem [ q ] .hh .v.RH = 0 ; 
  1492.   prevp = memtop - 2 ; 
  1493.   p = mem [ prevp ] .hh .v.RH ; 
  1494.   while ( p != bestpagebreak ) {
  1495.       
  1496.     if ( mem [ p ] .hh.b0 == 3 ) 
  1497.     {
  1498.       r = mem [ memtop ] .hh .v.RH ; 
  1499.       while ( mem [ r ] .hh.b1 != mem [ p ] .hh.b1 ) r = mem [ r ] .hh .v.RH ; 
  1500.       if ( mem [ r + 2 ] .hh .v.LH == 0 ) 
  1501.       wait = true ; 
  1502.       else {
  1503.       
  1504.     wait = false ; 
  1505.     s = mem [ p + 4 ] .hh .v.LH ; 
  1506.     mem [ mem [ r + 2 ] .hh .v.RH ] .hh .v.RH = s ; 
  1507.     s = mem [ r + 2 ] .hh .v.RH ; 
  1508.     if ( mem [ r + 2 ] .hh .v.LH == p ) 
  1509.     {
  1510.       if ( mem [ r ] .hh.b0 == 1 ) 
  1511.       if ( ( mem [ r + 1 ] .hh .v.LH == p ) && ( mem [ r + 1 ] .hh .v.RH 
  1512.       != 0 ) ) 
  1513.       {
  1514.         while ( mem [ s ] .hh .v.RH != mem [ r + 1 ] .hh .v.RH ) s = mem [ 
  1515.         s ] .hh .v.RH ; 
  1516.         eqtb [ 3536 ] .hh .v.RH = mem [ p + 4 ] .hh .v.RH ; 
  1517.         mem [ p + 4 ] .hh .v.LH = prunepagetop ( mem [ r + 1 ] .hh .v.RH ) 
  1518.         ; 
  1519.         if ( mem [ p + 4 ] .hh .v.LH != 0 ) 
  1520.         {
  1521.           tempptr = vpackage ( mem [ p + 4 ] .hh .v.LH , 0 , 1 , 
  1522.           1073741823L ) ; 
  1523.           mem [ p + 3 ] .cint = mem [ tempptr + 3 ] .cint + mem [ tempptr 
  1524.           + 2 ] .cint ; 
  1525.           freenode ( tempptr , 7 ) ; 
  1526.           wait = true ; 
  1527.         } 
  1528.         mem [ s ] .hh .v.RH = 0 ; 
  1529.       } 
  1530.       mem [ r + 2 ] .hh .v.LH = 0 ; 
  1531.       n = mem [ r ] .hh.b1 ; 
  1532.       tempptr = mem [ eqtb [ 4322 + n ] .hh .v.RH + 5 ] .hh .v.RH ; 
  1533.       freenode ( eqtb [ 4322 + n ] .hh .v.RH , 7 ) ; 
  1534.       eqtb [ 4322 + n ] .hh .v.RH = vpackage ( tempptr , 0 , 1 , 
  1535.       1073741823L ) ; 
  1536.     } 
  1537.     else {
  1538.         
  1539.       while ( mem [ s ] .hh .v.RH != 0 ) s = mem [ s ] .hh .v.RH ; 
  1540.       mem [ r + 2 ] .hh .v.RH = s ; 
  1541.     } 
  1542.       } 
  1543.       mem [ prevp ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  1544.       mem [ p ] .hh .v.RH = 0 ; 
  1545.       if ( wait ) 
  1546.       {
  1547.     mem [ q ] .hh .v.RH = p ; 
  1548.     q = p ; 
  1549.     incr ( insertpenalties ) ; 
  1550.       } 
  1551.       else {
  1552.       
  1553.     deleteglueref ( mem [ p + 4 ] .hh .v.RH ) ; 
  1554.     freenode ( p , 5 ) ; 
  1555.       } 
  1556.       p = prevp ; 
  1557.     } 
  1558.     else if ( mem [ p ] .hh.b0 == 4 ) 
  1559.     {
  1560.       if ( curmark [ 1 ] == 0 ) 
  1561.       {
  1562.     curmark [ 1 ] = mem [ p + 1 ] .cint ; 
  1563.     incr ( mem [ curmark [ 1 ] ] .hh .v.LH ) ; 
  1564.       } 
  1565.       if ( curmark [ 2 ] != 0 ) 
  1566.       deletetokenref ( curmark [ 2 ] ) ; 
  1567.       curmark [ 2 ] = mem [ p + 1 ] .cint ; 
  1568.       incr ( mem [ curmark [ 2 ] ] .hh .v.LH ) ; 
  1569.     } 
  1570.     prevp = p ; 
  1571.     p = mem [ prevp ] .hh .v.RH ; 
  1572.   } 
  1573.   eqtb [ 3536 ] .hh .v.RH = savesplittopskip ; 
  1574.   if ( p != 0 ) 
  1575.   {
  1576.     if ( mem [ memtop - 1 ] .hh .v.RH == 0 ) 
  1577.     if ( nestptr == 0 ) 
  1578.     curlist .tailfield = pagetail ; 
  1579.     else nest [ 0 ] .tailfield = pagetail ; 
  1580.     mem [ pagetail ] .hh .v.RH = mem [ memtop - 1 ] .hh .v.RH ; 
  1581.     mem [ memtop - 1 ] .hh .v.RH = p ; 
  1582.     mem [ prevp ] .hh .v.RH = 0 ; 
  1583.   } 
  1584.   savevbadness = eqtb [ 5294 ] .cint ; 
  1585.   eqtb [ 5294 ] .cint = 10000 ; 
  1586.   savevfuzz = eqtb [ 5710 ] .cint ; 
  1587.   eqtb [ 5710 ] .cint = 1073741823L ; 
  1588.   eqtb [ 4577 ] .hh .v.RH = vpackage ( mem [ memtop - 2 ] .hh .v.RH , bestsize 
  1589.   , 0 , pagemaxdepth ) ; 
  1590.   eqtb [ 5294 ] .cint = savevbadness ; 
  1591.   eqtb [ 5710 ] .cint = savevfuzz ; 
  1592.   if ( lastglue != 65535L ) 
  1593.   deleteglueref ( lastglue ) ; 
  1594.   pagecontents = 0 ; 
  1595.   pagetail = memtop - 2 ; 
  1596.   mem [ memtop - 2 ] .hh .v.RH = 0 ; 
  1597.   lastglue = 65535L ; 
  1598.   lastpenalty = 0 ; 
  1599.   lastkern = 0 ; 
  1600.   pagesofar [ 7 ] = 0 ; 
  1601.   pagemaxdepth = 0 ; 
  1602.   if ( q != memtop - 4 ) 
  1603.   {
  1604.     mem [ memtop - 2 ] .hh .v.RH = mem [ memtop - 4 ] .hh .v.RH ; 
  1605.     pagetail = q ; 
  1606.   } 
  1607.   r = mem [ memtop ] .hh .v.RH ; 
  1608.   while ( r != memtop ) {
  1609.       
  1610.     q = mem [ r ] .hh .v.RH ; 
  1611.     freenode ( r , 4 ) ; 
  1612.     r = q ; 
  1613.   } 
  1614.   mem [ memtop ] .hh .v.RH = memtop ; 
  1615.   if ( ( curmark [ 0 ] != 0 ) && ( curmark [ 1 ] == 0 ) ) 
  1616.   {
  1617.     curmark [ 1 ] = curmark [ 0 ] ; 
  1618.     incr ( mem [ curmark [ 0 ] ] .hh .v.LH ) ; 
  1619.   } 
  1620.   if ( eqtb [ 4057 ] .hh .v.RH != 0 ) 
  1621.   if ( deadcycles >= eqtb [ 5307 ] .cint ) 
  1622.   {
  1623.     {
  1624.       if ( interaction == 3 ) 
  1625.       wakeupterminal () ; 
  1626.       printnl ( 133 ) ; 
  1627.       print ( 853 ) ; 
  1628.     } 
  1629.     printint ( deadcycles ) ; 
  1630.     print ( 854 ) ; 
  1631.     {
  1632.       helpptr = 3 ; 
  1633.       helpline [ 2 ] = 855 ; 
  1634.       helpline [ 1 ] = 856 ; 
  1635.       helpline [ 0 ] = 857 ; 
  1636.     } 
  1637.     error () ; 
  1638.   } 
  1639.   else {
  1640.       
  1641.     outputactive = true ; 
  1642.     incr ( deadcycles ) ; 
  1643.     pushnest () ; 
  1644.     curlist .modefield = -1 ; 
  1645.     curlist .auxfield = -65536000L ; 
  1646.     curlist .mlfield = - (integer) line ; 
  1647.     begintokenlist ( eqtb [ 4057 ] .hh .v.RH , 6 ) ; 
  1648.     newsavelevel ( 8 ) ; 
  1649.     normalparagraph () ; 
  1650.     scanleftbrace () ; 
  1651.     return ; 
  1652.   } 
  1653.   {
  1654.     if ( mem [ memtop - 2 ] .hh .v.RH != 0 ) 
  1655.     {
  1656.       if ( mem [ memtop - 1 ] .hh .v.RH == 0 ) 
  1657.       if ( nestptr == 0 ) 
  1658.       curlist .tailfield = pagetail ; 
  1659.       else nest [ 0 ] .tailfield = pagetail ; 
  1660.       else mem [ pagetail ] .hh .v.RH = mem [ memtop - 1 ] .hh .v.RH ; 
  1661.       mem [ memtop - 1 ] .hh .v.RH = mem [ memtop - 2 ] .hh .v.RH ; 
  1662.       mem [ memtop - 2 ] .hh .v.RH = 0 ; 
  1663.       pagetail = memtop - 2 ; 
  1664.     } 
  1665.     shipout ( eqtb [ 4577 ] .hh .v.RH ) ; 
  1666.     eqtb [ 4577 ] .hh .v.RH = 0 ; 
  1667.   } 
  1668. } 
  1669. buildpage () {
  1670.     /* 10 30 31 22 80 90 */ buildpage_regmem 
  1671.   halfword p  ; 
  1672.   halfword q, r  ; 
  1673.   integer b, c  ; 
  1674.   integer pi  ; 
  1675.   unsigned char n  ; 
  1676.   scaled delta, h, w  ; 
  1677.   if ( ( mem [ memtop - 1 ] .hh .v.RH == 0 ) || outputactive ) 
  1678.   return ; 
  1679.   do {
  1680.       lab22: p = mem [ memtop - 1 ] .hh .v.RH ; 
  1681.     if ( lastglue != 65535L ) 
  1682.     deleteglueref ( lastglue ) ; 
  1683.     lastpenalty = 0 ; 
  1684.     lastkern = 0 ; 
  1685.     if ( mem [ p ] .hh.b0 == 10 ) 
  1686.     {
  1687.       lastglue = mem [ p + 1 ] .hh .v.LH ; 
  1688.       incr ( mem [ lastglue ] .hh .v.RH ) ; 
  1689.     } 
  1690.     else {
  1691.     
  1692.       lastglue = 65535L ; 
  1693.       if ( mem [ p ] .hh.b0 == 12 ) 
  1694.       lastpenalty = mem [ p + 1 ] .cint ; 
  1695.       else if ( mem [ p ] .hh.b0 == 11 ) 
  1696.       lastkern = mem [ p + 1 ] .cint ; 
  1697.     } 
  1698.     switch ( mem [ p ] .hh.b0 ) 
  1699.     {case 0 : 
  1700.     case 1 : 
  1701.     case 2 : 
  1702.       if ( pagecontents < 2 ) 
  1703.       {
  1704.     if ( pagecontents == 0 ) 
  1705.     freezepagespecs ( 2 ) ; 
  1706.     else pagecontents = 2 ; 
  1707.     q = newskipparam ( 9 ) ; 
  1708.     mem [ q ] .hh .v.RH = p ; 
  1709.     if ( mem [ tempptr + 1 ] .cint > mem [ p + 3 ] .cint ) 
  1710.     mem [ tempptr + 1 ] .cint = mem [ tempptr + 1 ] .cint - mem [ p + 3 ] 
  1711.     .cint ; 
  1712.     else mem [ tempptr + 1 ] .cint = 0 ; 
  1713.     mem [ q ] .hh .v.RH = p ; 
  1714.     mem [ memtop - 1 ] .hh .v.RH = q ; 
  1715.     goto lab22 ; 
  1716.       } 
  1717.       else {
  1718.       
  1719.     pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] + mem [ p + 3 ] 
  1720.     .cint ; 
  1721.     pagesofar [ 7 ] = mem [ p + 2 ] .cint ; 
  1722.     goto lab80 ; 
  1723.       } 
  1724.       break ; 
  1725.     case 8 : 
  1726.       goto lab80 ; 
  1727.       break ; 
  1728.     case 10 : 
  1729.       if ( pagecontents < 2 ) 
  1730.       goto lab31 ; 
  1731.       else if ( ( mem [ pagetail ] .hh.b0 < 9 ) ) 
  1732.       pi = 0 ; 
  1733.       else goto lab90 ; 
  1734.       break ; 
  1735.     case 11 : 
  1736.       if ( pagecontents < 2 ) 
  1737.       goto lab31 ; 
  1738.       else if ( mem [ p ] .hh .v.RH == 0 ) 
  1739.       return ; 
  1740.       else if ( mem [ mem [ p ] .hh .v.RH ] .hh.b0 == 10 ) 
  1741.       pi = 0 ; 
  1742.       else goto lab90 ; 
  1743.       break ; 
  1744.     case 12 : 
  1745.       if ( pagecontents < 2 ) 
  1746.       goto lab31 ; 
  1747.       else pi = mem [ p + 1 ] .cint ; 
  1748.       break ; 
  1749.     case 4 : 
  1750.       goto lab80 ; 
  1751.       break ; 
  1752.     case 3 : 
  1753.       {
  1754.     if ( pagecontents == 0 ) 
  1755.     freezepagespecs ( 1 ) ; 
  1756.     n = mem [ p ] .hh.b1 ; 
  1757.     r = memtop ; 
  1758.     while ( n >= mem [ mem [ r ] .hh .v.RH ] .hh.b1 ) r = mem [ r ] .hh 
  1759.     .v.RH ; 
  1760.     n = n ; 
  1761.     if ( mem [ r ] .hh.b1 != n ) 
  1762.     {
  1763.       q = getnode ( 4 ) ; 
  1764.       mem [ q ] .hh .v.RH = mem [ r ] .hh .v.RH ; 
  1765.       mem [ r ] .hh .v.RH = q ; 
  1766.       r = q ; 
  1767.       mem [ r ] .hh.b1 = n ; 
  1768.       mem [ r ] .hh.b0 = 0 ; 
  1769.       ensurevbox ( n ) ; 
  1770.       if ( eqtb [ 4322 + n ] .hh .v.RH == 0 ) 
  1771.       mem [ r + 3 ] .cint = 0 ; 
  1772.       else mem [ r + 3 ] .cint = mem [ eqtb [ 4322 + n ] .hh .v.RH + 3 ] 
  1773.       .cint + mem [ eqtb [ 4322 + n ] .hh .v.RH + 2 ] .cint ; 
  1774.       mem [ r + 2 ] .hh .v.LH = 0 ; 
  1775.       q = eqtb [ 3544 + n ] .hh .v.RH ; 
  1776.       if ( eqtb [ 5317 + n ] .cint == 1000 ) 
  1777.       h = mem [ r + 3 ] .cint ; 
  1778.       else h = xovern ( mem [ r + 3 ] .cint , 1000 ) * eqtb [ 5317 + n ] 
  1779.       .cint ; 
  1780.       pagesofar [ 0 ] = pagesofar [ 0 ] - h - mem [ q + 1 ] .cint ; 
  1781.       pagesofar [ 2 + mem [ q ] .hh.b0 ] = pagesofar [ 2 + mem [ q ] 
  1782.       .hh.b0 ] + mem [ q + 2 ] .cint ; 
  1783.       pagesofar [ 6 ] = pagesofar [ 6 ] + mem [ q + 3 ] .cint ; 
  1784.       if ( ( mem [ q ] .hh.b1 != 0 ) && ( mem [ q + 3 ] .cint != 0 ) ) 
  1785.       {
  1786.         {
  1787.           if ( interaction == 3 ) 
  1788.           wakeupterminal () ; 
  1789.           printnl ( 133 ) ; 
  1790.           print ( 846 ) ; 
  1791.         } 
  1792.         printesc ( 260 ) ; 
  1793.         printint ( n ) ; 
  1794.         {
  1795.           helpptr = 3 ; 
  1796.           helpline [ 2 ] = 847 ; 
  1797.           helpline [ 1 ] = 848 ; 
  1798.           helpline [ 0 ] = 776 ; 
  1799.         } 
  1800.         error () ; 
  1801.       } 
  1802.     } 
  1803.     if ( mem [ r ] .hh.b0 == 1 ) 
  1804.     insertpenalties = insertpenalties + mem [ p + 1 ] .cint ; 
  1805.     else {
  1806.         
  1807.       mem [ r + 2 ] .hh .v.RH = p ; 
  1808.       delta = pagesofar [ 0 ] - pagesofar [ 1 ] - pagesofar [ 7 ] + 
  1809.       pagesofar [ 6 ] ; 
  1810.       if ( eqtb [ 5317 + n ] .cint == 1000 ) 
  1811.       h = mem [ p + 3 ] .cint ; 
  1812.       else h = xovern ( mem [ p + 3 ] .cint , 1000 ) * eqtb [ 5317 + n ] 
  1813.       .cint ; 
  1814.       if ( ( ( h <= 0 ) || ( h <= delta ) ) && ( mem [ p + 3 ] .cint + mem 
  1815.       [ r + 3 ] .cint <= eqtb [ 5721 + n ] .cint ) ) 
  1816.       {
  1817.         pagesofar [ 0 ] = pagesofar [ 0 ] - h ; 
  1818.         mem [ r + 3 ] .cint = mem [ r + 3 ] .cint + mem [ p + 3 ] .cint ; 
  1819.       } 
  1820.       else {
  1821.           
  1822.         if ( eqtb [ 5317 + n ] .cint <= 0 ) 
  1823.         w = 1073741823L ; 
  1824.         else {
  1825.         
  1826.           w = pagesofar [ 0 ] - pagesofar [ 1 ] - pagesofar [ 7 ] ; 
  1827.           if ( eqtb [ 5317 + n ] .cint != 1000 ) 
  1828.           w = xovern ( w , eqtb [ 5317 + n ] .cint ) * 1000 ; 
  1829.         } 
  1830.         if ( w > eqtb [ 5721 + n ] .cint - mem [ r + 3 ] .cint ) 
  1831.         w = eqtb [ 5721 + n ] .cint - mem [ r + 3 ] .cint ; 
  1832.         q = vertbreak ( mem [ p + 4 ] .hh .v.LH , w , mem [ p + 2 ] .cint 
  1833.         ) ; 
  1834.         mem [ r + 3 ] .cint = mem [ r + 3 ] .cint + bestheightplusdepth ; 
  1835.     ;
  1836. #ifdef STAT
  1837.         if ( eqtb [ 5300 ] .cint > 0 ) 
  1838.         {
  1839.           begindiagnostic () ; 
  1840.           printnl ( 849 ) ; 
  1841.           printint ( n ) ; 
  1842.           print ( 850 ) ; 
  1843.           printscaled ( w ) ; 
  1844.           printchar ( 44 ) ; 
  1845.           printscaled ( bestheightplusdepth ) ; 
  1846.           print ( 785 ) ; 
  1847.           if ( q == 0 ) 
  1848.           printint ( -10000 ) ; 
  1849.           else if ( mem [ q ] .hh.b0 == 12 ) 
  1850.           printint ( mem [ q + 1 ] .cint ) ; 
  1851.           else printchar ( 48 ) ; 
  1852.           enddiagnostic ( false ) ; 
  1853.         } 
  1854. #endif /* STAT */
  1855.         if ( eqtb [ 5317 + n ] .cint != 1000 ) 
  1856.         bestheightplusdepth = xovern ( bestheightplusdepth , 1000 ) * eqtb 
  1857.         [ 5317 + n ] .cint ; 
  1858.         pagesofar [ 0 ] = pagesofar [ 0 ] - bestheightplusdepth ; 
  1859.         mem [ r ] .hh.b0 = 1 ; 
  1860.         mem [ r + 1 ] .hh .v.RH = q ; 
  1861.         mem [ r + 1 ] .hh .v.LH = p ; 
  1862.         if ( q == 0 ) 
  1863.         insertpenalties = insertpenalties - 10000 ; 
  1864.         else if ( mem [ q ] .hh.b0 == 12 ) 
  1865.         insertpenalties = insertpenalties + mem [ q + 1 ] .cint ; 
  1866.       } 
  1867.     } 
  1868.     goto lab80 ; 
  1869.       } 
  1870.       break ; 
  1871.       default: 
  1872.       confusion ( 841 ) ; 
  1873.       break ; 
  1874.     } 
  1875.     if ( pi < 10000 ) 
  1876.     {
  1877.       if ( pagesofar [ 1 ] < pagesofar [ 0 ] ) 
  1878.       if ( ( pagesofar [ 3 ] != 0 ) || ( pagesofar [ 4 ] != 0 ) || ( pagesofar 
  1879.       [ 5 ] != 0 ) ) 
  1880.       b = 0 ; 
  1881.       else b = badness ( pagesofar [ 0 ] - pagesofar [ 1 ] , pagesofar [ 2 ] ) 
  1882.       ; 
  1883.       else if ( pagesofar [ 1 ] - pagesofar [ 0 ] > pagesofar [ 6 ] ) 
  1884.       b = 1073741823L ; 
  1885.       else b = badness ( pagesofar [ 1 ] - pagesofar [ 0 ] , pagesofar [ 6 ] ) 
  1886.       ; 
  1887.       if ( b < 1073741823L ) 
  1888.       if ( pi <= -10000 ) 
  1889.       c = pi ; 
  1890.       else if ( b < 10000 ) 
  1891.       c = b + pi + insertpenalties ; 
  1892.       else c = 100000L ; 
  1893.       else c = b ; 
  1894.       if ( insertpenalties >= 10000 ) 
  1895.       c = 1073741823L ; 
  1896.     ;
  1897. #ifdef STAT
  1898.       if ( eqtb [ 5300 ] .cint > 0 ) 
  1899.       {
  1900.     begindiagnostic () ; 
  1901.     printnl ( 37 ) ; 
  1902.     print ( 781 ) ; 
  1903.     printtotals () ; 
  1904.     print ( 844 ) ; 
  1905.     printscaled ( pagesofar [ 0 ] ) ; 
  1906.     print ( 784 ) ; 
  1907.     if ( b == 1073741823L ) 
  1908.     printchar ( 42 ) ; 
  1909.     else printint ( b ) ; 
  1910.     print ( 785 ) ; 
  1911.     printint ( pi ) ; 
  1912.     print ( 845 ) ; 
  1913.     if ( c == 1073741823L ) 
  1914.     printchar ( 42 ) ; 
  1915.     else printint ( c ) ; 
  1916.     if ( c <= leastpagecost ) 
  1917.     printchar ( 35 ) ; 
  1918.     enddiagnostic ( false ) ; 
  1919.       } 
  1920. #endif /* STAT */
  1921.       if ( c <= leastpagecost ) 
  1922.       {
  1923.     bestpagebreak = p ; 
  1924.     bestsize = pagesofar [ 0 ] ; 
  1925.     leastpagecost = c ; 
  1926.     r = mem [ memtop ] .hh .v.RH ; 
  1927.     while ( r != memtop ) {
  1928.         
  1929.       mem [ r + 2 ] .hh .v.LH = mem [ r + 2 ] .hh .v.RH ; 
  1930.       r = mem [ r ] .hh .v.RH ; 
  1931.     } 
  1932.       } 
  1933.       if ( ( c == 1073741823L ) || ( pi <= -10000 ) ) 
  1934.       {
  1935.     fireup ( p ) ; 
  1936.     if ( outputactive ) 
  1937.     return ; 
  1938.     goto lab30 ; 
  1939.       } 
  1940.     } 
  1941.     if ( ( mem [ p ] .hh.b0 < 10 ) || ( mem [ p ] .hh.b0 > 11 ) ) 
  1942.     goto lab80 ; 
  1943.     lab90: if ( mem [ p ] .hh.b0 == 11 ) 
  1944.     q = p ; 
  1945.     else {
  1946.     
  1947.       q = mem [ p + 1 ] .hh .v.LH ; 
  1948.       pagesofar [ 2 + mem [ q ] .hh.b0 ] = pagesofar [ 2 + mem [ q ] .hh.b0 ] 
  1949.       + mem [ q + 2 ] .cint ; 
  1950.       pagesofar [ 6 ] = pagesofar [ 6 ] + mem [ q + 3 ] .cint ; 
  1951.       if ( ( mem [ q ] .hh.b1 != 0 ) && ( mem [ q + 3 ] .cint != 0 ) ) 
  1952.       {
  1953.     {
  1954.       if ( interaction == 3 ) 
  1955.       wakeupterminal () ; 
  1956.       printnl ( 133 ) ; 
  1957.       print ( 842 ) ; 
  1958.     } 
  1959.     {
  1960.       helpptr = 4 ; 
  1961.       helpline [ 3 ] = 843 ; 
  1962.       helpline [ 2 ] = 811 ; 
  1963.       helpline [ 1 ] = 812 ; 
  1964.       helpline [ 0 ] = 776 ; 
  1965.     } 
  1966.     error () ; 
  1967.     r = newspec ( q ) ; 
  1968.     mem [ r ] .hh.b1 = 0 ; 
  1969.     deleteglueref ( q ) ; 
  1970.     mem [ p + 1 ] .hh .v.LH = r ; 
  1971.       } 
  1972.     } 
  1973.     pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] + mem [ q + 1 ] .cint 
  1974.     ; 
  1975.     pagesofar [ 7 ] = 0 ; 
  1976.     lab80: if ( pagesofar [ 7 ] > pagemaxdepth ) 
  1977.     {
  1978.       pagesofar [ 1 ] = pagesofar [ 1 ] + pagesofar [ 7 ] - pagemaxdepth ; 
  1979.       pagesofar [ 7 ] = pagemaxdepth ; 
  1980.     } 
  1981.     mem [ pagetail ] .hh .v.RH = p ; 
  1982.     pagetail = p ; 
  1983.     mem [ memtop - 1 ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  1984.     mem [ p ] .hh .v.RH = 0 ; 
  1985.     goto lab30 ; 
  1986.     lab31: mem [ memtop - 1 ] .hh .v.RH = mem [ p ] .hh .v.RH ; 
  1987.     mem [ p ] .hh .v.RH = 0 ; 
  1988.     flushnodelist ( p ) ; 
  1989.     lab30: ; 
  1990.   } while ( ! ( mem [ memtop - 1 ] .hh .v.RH == 0 ) ) ; 
  1991.   if ( nestptr == 0 ) 
  1992.   curlist .tailfield = memtop - 1 ; 
  1993.   else nest [ 0 ] .tailfield = memtop - 1 ; 
  1994. } 
  1995. appspace () {
  1996.     appspace_regmem 
  1997.   halfword p  ; 
  1998.   halfword q  ; 
  1999.   internalfontnumber f  ; 
  2000.   integer k  ; 
  2001.   if ( ( curlist .auxfield >= 2000 ) && ( eqtb [ 3539 ] .hh .v.RH != 0 ) ) 
  2002.   q = newparamglue ( 13 ) ; 
  2003.   else {
  2004.       
  2005.     if ( eqtb [ 3538 ] .hh .v.RH != 0 ) 
  2006.     p = eqtb [ 3538 ] .hh .v.RH ; 
  2007.     else {
  2008.     
  2009.       p = fontglue [ eqtb [ 4578 ] .hh .v.RH ] ; 
  2010.       if ( p == 0 ) 
  2011.       {
  2012.     f = eqtb [ 4578 ] .hh .v.RH ; 
  2013.     p = newspec ( 0 ) ; 
  2014.     k = parambase [ f ] + 2 ; 
  2015.     mem [ p + 1 ] .cint = fontinfo [ k ] .cint ; 
  2016.     mem [ p + 2 ] .cint = fontinfo [ k + 1 ] .cint ; 
  2017.     mem [ p + 3 ] .cint = fontinfo [ k + 2 ] .cint ; 
  2018.     fontglue [ f ] = p ; 
  2019.       } 
  2020.     } 
  2021.     p = newspec ( p ) ; 
  2022.     if ( curlist .auxfield >= 2000 ) 
  2023.     mem [ p + 1 ] .cint = mem [ p + 1 ] .cint + fontinfo [ 7 + parambase [ 
  2024.     eqtb [ 4578 ] .hh .v.RH ] ] .cint ; 
  2025.     mem [ p + 2 ] .cint = xnoverd ( mem [ p + 2 ] .cint , curlist .auxfield , 
  2026.     1000 ) ; 
  2027.     mem [ p + 3 ] .cint = xnoverd ( mem [ p + 3 ] .cint , 1000 , curlist 
  2028.     .auxfield ) ; 
  2029.     q = newglue ( p ) ; 
  2030.     mem [ p ] .hh .v.RH = 0 ; 
  2031.   } 
  2032.   mem [ curlist .tailfield ] .hh .v.RH = q ; 
  2033.   curlist .tailfield = q ; 
  2034. } 
  2035.